VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BParmImpresionTickets"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCompania"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'---------------------------------------------------------------------------------------
' Module    : BParmImpresionTickets
' DateTime  : 30/11/2011 12:00
' Author    :
' Purpose   : Clase Datos Impresion Tickets
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarnTicketIni As String
Private mvarnTicketFin As String
Private mvarbCompania As bCompania
Public Property Get bCompania() As bCompania
Set bCompania = mvarbCompania
End Property
Public Property Set bCompania(vData As bCompania)
Set mvarbCompania = vData
End Property
Public Property Get nTicketIni() As String
Let nTicketIni = mvarnTicketIni
End Property
Public Property Get nTicketFin() As String
Let nTicketFin = mvarnTicketFin
End Property
Public Property Let nTicketIni(vData As String)
mvarnTicketIni = vData
End Property
Public Property Let nTicketFin(vData As String)
mvarnTicketFin = vData
End Property
